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vitedite mits P 9S: 7:88 UMTAACP. SREILOCKDB OMAR: 1 ” (1) | 


1 TIT LE Forkoe ,LOCK AND UNLOCK I/O DATA BASE | : 

¢ IDEN 4 : 
ae : 
° 5 FERRARA RARER E AAA ERE AERA EAE REAR EAAAAEAAAAAEAEAEAAEKAERAEARARETEREReeE Eee Ps 
3* a ° 

4 7 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * : 

0 8 :* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . : 
444 1 :* ALL RIGHTS RESERVED. " ; 
7 ® } 2 

$00 11 ;* THIS theres, IS FURNISHED UNDER A LICENSE AND MAY BE USED AND coprep * : 
0000 \ 3* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * | : 
0000 13 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * : 
0000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* : 
0000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
44 1 :* TRANSFERRED. * : 
Py ® Pt 

0000 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ° 
0000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * | : 
44 st :* CORPORATION. * | : 
. * | . 

0000 $§ 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
0000 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 3 
0000 24; ® F 
0000 25 ;* * 3 
4464 $8 PRRARA TEER ARATE ETRE AAA A AAA AAR AREA AAA AAA AERA AAAAETAAE AERA E EEE : 
0000 3’ : 
0000 9 ;++ 3 
0000 0; 3 
0000 1; Facility: F11ACP Structure Level 1 ; 
0000 3 5 3 
4 $ ; Abstract: : 
0000 35 : These routines lock and unlock the I/0 data base mutex. ; 
44 #9 ; needless to say, they must be called in kernel mode. : 
9000 38 : Environment: : 
000 40: Starlet operating system, including privileged system services : 
a4 $ 3 and internal exec routine. : 
444 is : Author: Andrew C. Goldstein, Creation Date: 29-APR-1977 15:31 2 
9000 49 : Modified By: 3 
0000 t3 : V02-002 REFORMAT K. E. Kinnear 31-Jul-1980 13:08 | : 
0000 48 ; | 3 
0000 49 ;-- 3 
44 29 | 3 
000 1 ; : 3 
0000 52 SPROEF : define procesor register numbers : 
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4 | Py 

§ ; LOCK_IODB -- Routine to lock the I/0 date base Mutex. : 

8 ; Calling Sequence: : : 

33 44 3 CALL LOCK_10DB () : 

00 62 : Input Parameters: 3 

tt as i | : 

000 64 ; none 3 

BB germs Pal 

3 Implic nputs: : 

aia 67 ; ; 

000 68 ; none : 

0000 69 ; 3 

0000 70 ; Output Parameters: 3 

0000 713: 3 

0000 fa 3 none : 

0000 73; 3 

0000 74 ; Implicit Outputs: 3 

0000 75; 3 

0000 76 ; none 3 

0000 77; ‘ 3 

0000 78 ; Routine Value: 3 

0000 79 ; 3 

0000 80 ; none | F 

0000 4 a : 

0000 ; :; Side Effects: 3 

0000 83 ; : 

0000 84 ; '/0 data base mutex Locked. 3 

0000 85 ; 3 

0000 86 ;-- 3 

0000 87 3 
00000000 88 -PSECT $LOCKEDC1$,NOWRT ; 
0000 89 3 

0000 90 LOCK_IODB:: 3 

003c 0000 91 -WORD “M<R2,R3,R4,R5> 3; save registers 3 
50 00000000'9F DE 0002 92 MOVAL a#10C$GL_MUTEX,RO : get i/o data base mutex : 
54  00000000'9F DO 000 9 MOVL a@M#SCH$GL~CURPCB,R4 t get own pcb address : 
00000000 9F iS oo10 + ise a#SCHSLOTKW ; and lock it : 


BER = LOCK AND UNLOCK 1/0 DATA BASE" " NG-SEP~1PEE 83:05:16 YANN Mass YOEOOe. FOB OS, 
p++ 
: UNLOCK_IODB == routine unlocks the i/o data base mutex. 
Calling sequence: | 
CALL UNLOCK_IODB () 
Input Parameters: 
none 
Implicit Inputs: 


none 


Output Parameters: 


none 


Implicit Outputs: 
none 

Routine Value: 
none 

Side Effects: 


I/o data base mutex unlocked. 
IPL lowered to 0 
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| 
| 
| 
-PSECT S$LOCKEDC1$,NOWRT | 
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0000 
0 UNLOCK_10DB: : 
003c 00 -WORD “M<R2,R3,R4,R5> 3; save registers 
50 00000000°9F DE 00 MOVAL a#10C$GL_MUTEX,RO > get i/o data base mutex 
54 00000000'°9F D0 00 MOVL  a#SCH$GL~CURPCB,R4 ; and own pcb address 
00000000'9F 16 00 38 a#SCHSUNCOCK 3 and unlock it 
0 SETIPL #0 ; also lower ipl 
04 00 T 
0 
0 
0 } 
0 ~END 
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Symbol table SEP=1984 02:11:5 MTAACP.SRCJLOCKDB.MAR; 1 (5) | 


PCB-TYPE = $0000000 | 
iseeetope'™™ —_ oggeeee nck 88 
f TYPE bo008004 : 


The working set Limit was 1050 pages. 
6752 bytes (14 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 92 non-local and 0 local symbols. 
327 source Lines were read in Pass 1, producing 13 object records in Pass 2 

6 pages of virtual memory were used to define 14 macros. 


= 00000 ; 
PRS_IPL = ied 3 
RVT- TYPE = 0000000 ‘ 
SCHSGL_CURPCB trtereee ~ © ; 
SCHSLOCKW eereeene . 5; 5 
SCHSUNLOCK eeeeeeee 0 ; 
LOCK_10DB alae 6 BE Rc” 0 : 
vcB TYPE = = So0ot ; 
WCB-TYPE §09008 | : 
Seren arr ewancaecane + e 
: ; Psect synopsis H | ; 
PSECT name Allocation PSECT No. Attributes : 
» SS os 00000000 <¢ 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL ate NOEXE NORD NOWRT NOVEC BYTE ; 
SABSS 00000000 ( 0.) O1¢ #1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE : 
SLOCKEDC1$ 00000031 <¢ 49.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE ‘ 
GP en es emae nnn oer enema cone oe é 
! ;_Per formance indicators ! : 
Phase Page faults CPU Time Elapsed Time : 
Initialization 39 00:00:00.09  00:00:01.66 ; 
ponnens processing 131 00:00:00.66 00:00:04.85 > 
144 00:00:01.59 00:00:07 .61 3 
Synbol table sort 0 00:00: 8.08 00: 8 :00-3° : 
s2 40 00:00:00. 00:00:03.71 ; 
we E, table output 3 80:09;00.95 00:00:00.02 3 
Psect synopsis output - 1 00:00:00.0 00:00:00.02 : 
Cross-reference output 0 ee Sy 00:00:00.00 3 
Assembler run totals 361 00:00:03.0 00:00:18.32 : 
Macro Library name Macros defined ; 
$255$DUA28: Esvs. -08J3L 18 LB: 1 1 : 
“$255$DUA eye IBISTAR Let MLB; 2 4 e 
TOTALS (all Libraries) 5 ; 


146 GETS were required to define 5 macros. 


vA Macro Run Statistics ee ee eee * oer 13k 83; F 8 MTANCP P.S BRET oc COR MAR: 1 ones 


There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:LOCKDB/OBJ=OBJ$:LOCKDB MSRCS$:MTADEF 1/UPDATE=(ENHS:MTADEF 1) *MSRC$:LOCKDB/UPDATE=(ENH$:LOCKDB) +EXECML$/LIB 
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